#!/usr/bin/perl

for(my $i=1; $i<=110; $i++)
{
	open(FILE, ">data.$i.in");
	my $alpha=rand(10);
	my $x0=rand(10)-5;
	my $x1=rand(10)-5;
	my $x2=rand(10)-5;
	print FILE "$alpha\n$x0 $x1 $x2\n";
	close(FILE);
}
